BDA068119 


STUDENTS  FACULTY  STUDY  R 
ESEARCH  DEVELOPMENT  FU7 
URE  CAREER  CREATIVITY  CC 
MMUNITY  LEADERSHIP  TECh 
NOLOGY  FRONTIflflfcSIGN 
ENGINEERING  APR®kWHlENC 
GEORGE  WASHIfJBSMEfcslIN 

r-  ” -a* 


3rFv?nn 


DISTRIBUTION  STATEMENT  A 

Approved  for  public  release;  . 
Distribution  Unlimited 


INSTITUTE  FOR  MANAGEMENT 
SCIENCE  AND  ENGINEERING 

SCHOOL  OF  ENGINEERING 
AND  APPLIED  SCIENCE 


THIS  DOCUMENT  HAS  BEEN  APPROVED  FOR  PUBLIC  RELEASE  AND  SALE;  ITS  DISTRIBUTION  IS  UNLIMITED 


■»  ' — ■ — — 

THE 

GEORGE 

WASHIMGTOM 

ts- - _ - a ..  fan, _ 

UMIVERSITY 

LEVEIf 


THE  GEORGE  WASHINGTON  UNIVERSITY 
School  of  Engineering  and  Applied  Science 
Institute  for  Management  Science  and  Engineering 


STATISTICAL  RETRIEVAL  SYSTEM  AND  RATE 
GENERATOR:  COMMAND/MANAGEMENT  MANUAL 


T.  C.  Teeples 


TECHNICAL  MEMORANDUM 


3 Octobi 


Program  in  Logistics 

Contract  N00014-75-C-0729 
Project  NR  347  020 
Office  of  Naval  Research 


REISSUED  AS 
TECHNICAL  PAPER 
SERIAL  T-395 
31  MARCH  1979 


D D C 

E0J2DMG 

MAY  1 


SECURITY  CLASSIFICATION  OF  THIS  PACE  fWTlwi  Data  Cntorod) 

REP0RT  DOCUMENT AT10N  PAGE I BEFORE0 OOMPLETWGNFORM 

t.  REPORT  NUMBER  |2.  COVT  ACCESSION  NO.  *•  RECIPIENT'S  CATALOG  NUMBER 


T-395 


4 ./TiTlE  land  Submit) 


fa  j STATISTICAL  RETRIEVAL  JYSTEM  AMD  BATE  \ 

. A ^GENERATOR : ^OMMAND /MANAGEMENT  ^ANUAL  t J ' 

' ' Y > 


S.  TYPE  OF  REPORT  & PERIOD  COVEREO 


SCIENTIFIC 


ANT  NUMBER^ 


• PERFORMING  ORGANIZATION  NAME  AND  AOORESS 

LTHE  GEORGE  WASHINGTON  UNIVERSITY  ,, 

PROGRAM  IN  LOGISTICS  ^ f Oi  , 

WASHINGTON,  D.  C.  20037  


II.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 

OFFICE  OF  NAVAL  RESEARCH 
CODE  434 

ARLINGTON.  VIRGINIA  22217 

U MONITORING  AGENCY  NAME  A ADDRESST!  dllloronl  Itom  ContralllnJ  Ollleo)  | IS.  SECURITY  CLASS,  (ol  thlm  ropott) 


(/ VJ 


16.  DISTRIBUTION  STATEMENT  (ol  thle  Report) 


APPROVED  FOR  PUBLIC  RELEASE  AND  SALE: 
DISTRIBUTION  UNLIMITED. 


17.  DISTRIBUTION  STATEMENT  (ol  the  obetroct  entered  In  Block  20,  II  dllloronl  from  Report) 


1S«.  DECLASSIFICATION/ DOWNGRADING 
SCHEDULE 


ZAl  ■ / ’ 6y‘ii  j 


It.  KEY  WOROS  (Continue  on  rororto  oldo  II  nocoooorr  ltd  IdonHty  Sr  Sloe* 

ATTRITION  RATES  USMC  ATTRITION  RATES 

LONGITUDINAL  DATA  BASE  USMC  MANPOWER  RATES 

MANPOWER  DATA  BASE  USMC  PERSONNEL  RATES 

PERSONNAL  DATA  BASE 

STATISTICAL  RETRIEVAL  SYSTIM/RATE  GENERATOR 


to.  ABSTRACT  (Continue  on  roeoroo  oldo  II  nocoeeorr  Identity  by  Mock  number) 

The  purpose  of  this  manual  Is  to  describe  from  the  user's  perspective 
the  automated  data  system  that  has  been  designed  and  programmed  for  the 
Statistical  Retrieval  System  and  Rate  Generator  (SRS/RG) . The  heart  of  the 
SRS/RG  is  a history  file  composed  of  variable  length  records;  one  record  . 
containing  background  Information  for  each  Marine.  The  records  will  grow 
as  significant  career  events  are  added  to  the  records.  The  significant 

(Continued) 


wLLUNITY  CLASSIFICATION  OF  THIS  PAOEWhan  Dmtm  Enl.r.dJ 


* 

20.  Abstract  - (continued) 

events  include  reenlistments,  promotions  and  demotions,  changes  in 
military  occupational  specialty,  unauthorized  absences  and  changes  in 
duty  assignments.  The  SRS/RG  will  be  used  by  the  Manpower  staff  of 
Headquarters,  Marine  Ccrps. 


SECURITY  CLASSIFICATION  OF  THIS  PAOEOThMi  Data  Enf.crf; 


THE  GEORGE  WASHINGTON  UNIVERSITY 
School  of  Engineering  and  Applied  Science 
Institute  for  Management  Science  and  Engineering 

Program  in  Logistics 


Abstract 

of 

Serial  TM-60418 
3 October  1977 


REISSUED  AS 
TECHNICAL  PAPER 
SERIAL  T-395 
31  MARCH  1979 


STATISTICAL  RETRIEVAL  SYSTEM  AND  RATE 
GENERATOR:  COMMAND/MANAGEMENT  MANUAL 

by 

T.  C.  Teeples 


V 

The  purpose  of  this  manual  is  to  describe  from  the  user's  perspective 
the  automated  data  system  that  has  been  designed  and  programmed  for  the 
Statistical  Retrieval  System  and  Rate  Generator  (SRS/RG).  The  heart  of  the 
SRS/RG  is  a history  file  composed  of  variable  length  records;  one  record 
containing  background  information  for  each  Marine.  The  records  will  grow 
as  significant  career  events  are  added  to  the  records.  The  significant 
events  include  reenlistments,  promotions  and  demotions,  changes  in  military 
occupational  specialty,  unauthorized  absences  and  changes  in  duty  assign- 
ments. The  SRS/RG  will  be  used  by  the  Manpower  staff  of  Headquarters, 
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1.  Introduction 


The  Program  in  Logistics  staff  of  The  George  Washington  University 
started  work  on  the  Statistical  Retrieval  System  (SRS)/Rate  Generator  (RG) 
in  July  1973.  The  project  resulted  from  discussions  between  Headquarters, 
Marine  Corps  (HQMC)  and  the  research  staff.  The  initial  direction  of  the 
effort  was  provided  by  a work  statement  [1].  Further  direction  was  provided 
by  a study  directive  [2J. 

At  the  end  of  the  analysis  phase.  Reference  [3]  was  prepared  describ- 
ing the  analysis  and  recommending  continuing  with  a system  design.  The 
paper  led  to  the  preliminary  design  of  the  system  and  some  experimental 
programming  to  test  some  key  design  concepts. 

The  final  system  design  was  described  in  a systems  specification 
document  [4].  All  effort  since  that  time  has  been  directed  toward  pro- 
gramming, debugging  and  creating  the  SRS  history  file. 

2.  Discussion 

The  SRS  history  file  is  the  key  to  the  SRS/RG  system.  The  file  is 
composed  of  one  record  for  each  Marine.  Each  record  is  variable  in  length, 
growing  to  contain  all  instances  of  selected  significant  events  during  the 
career  of  the  Marine. 
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One  of  the  primary  goals  in  designing  SRS  was  to  minimize  any 
disruptions  of  the  already  existing  systems.  This  goal  has  been  realized. 
SRS  requires  input  from  the  Recruit  Accession  Management  System  (RAMS) 
files  and  from  the  Transaction  Retrieval  System  (TRS).  No  changes  were 
required  for  either  of  these  systems  in  supporting  SRS.  It  should  be 
noted  that  any  future  changes  to  the  data  records  of  these  two  systems  could 
have  an  Impact  on  SRS. 

The  SRS  history  file  is  a sequential  file.  The  file  depends  on  batch 
processing  for  the  preliminary  and  updating  processes.  The  SRS  history  file 
has  never  been  intended  as  an  on-line  file  for  inquiry  purposes.  The 
Intended  output  of  the  SRS/RG  system  is  sums,  counts,  profiles,  rates, 
averages,  i.e.,  aggregate  Information. 

In  its  present  form  SRS  contains  13  record  areas.  The  record  can 
be  expanded  to  15  areas  without  major  reprogramming  required.  The  programs 
have  been  written  using  a top-down,  modular  approach  which  will  facilitate 
maintenance  and  changes  to  the  system. 

3.  Summary 

The  enclosure  is  a Command/Management  manual  describing  the  system  for 
managers  and  users.  This  manual  plus  a program  catalog  will  satisfy  the 
documentation  requirements  for  SRS/RG.  The  program  catalog  will  provide 
detailed  descriptions  of  the  programs  and  will  be  used  by  programmers  in 
maintaining  the  systems. 


- 2 - 
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SECTION  1.  OBJECTIVE 


1.1  Background.  Work  on  the  Statistical  Retrieval  System  (SRS)  and  Rate 
Generator  (RG)  started  in  July  1973.  The  project  is  a result  of  discussions 
between  HQMC  staff  and  the  staff  of  Program  in  Logistics,  The  George 
Washington  University.  The  initial  direction  of  the  effort  was  provided 

by  a WORK  STATEMENT:  Statistical  Retrieval  System/ Automated  Rate  Generator 
published  by  the  HQMC  staff  and  received  24  April  1973.  Additional  guidance 
was  provided  by  STUDY.  DIRECTIVE:  Determination  of  Data  Requirements 
for  the  Statistical  Retrieval  System/Rate  Generator  (FY74) , also  written 
by  HQMC  staff  (July  1973). 

At  the  end  of  the  analysis  phase  of  the  project  the  research  staff 
produced  a Technical  Memorandum  (Serial  TM-65211) : Creating  a Personnel 
Data  Base  with  a Time  Dimension  for  the  Marine  Corps  (30  June  1974). 

This  memorandum  led  to  the  design  of  the  system  and  some  preliminary 
programming  to  ensure  that  certain  key  design  concepts  were  supportable. 

The  system  design  was  described  in  a document  SYSTEMS  SPECIFICATION: 
Statistical  Retrieval  System  and  Rate  Generator  (9  June  1976).  This  docu- 
ment also  described  the  interfaces  with  present  systems  and  presented  the 
logic  of  the  proposed  computer  programs  required  by  the  system.  All 
effort  since  that  time  has  been  directed  toward  programming,  debugging  and 
creating  the  SRS  history  file. 

1.2  Purpose.  Parts  1 and  2 of  this  document  provide  management  personnel 
with  information  regarding  the  SRS/RG.  Parts  3 and  4 provide  more  detailed 
information  and  are  aimed  at  the  users  of  the  system.  A separate  document 
(Program  Catalog)  will  provide  detailed  descriptions  of  the  programs  and 
will  be  used  by  programmers  in  maintaining  the  system. 

This  document  and  the  Program  Catalog  are  submitted  in  fulfillment 
of  the  project  effort. 


SECTION 2.  SYSTEM  OVERVIEW 


2.1  Philosophy.  Ine  SRS  history  file  Is  the  key  to  the  SRS/RG  system. 

The  file  is  composed  of  one  record  for  each  Marine.  Each  record  is 
variable  in  length,  growing  to  contain  all  instances  of  selected  signifi- 
cant events  during  the  career  of  the  Marine  (see  Section  2.2  for  the 
detailed  contents  of  the  record). 

One  of  the  primary  goals  in  designing  SRS  was  to  minimize  any  disrup- 
tions of  the  already  existing  systems.  This  goal  has  been  realized.  SRS 
requires  input  from  the  Recruit  Accession  Management  System  (RAMS)  files  and 
from  the  Transaction  Retrieval  System  (TRS) . No  changes  were  required  for 
either  of  these  systems  in  supporting  SRS.  It  should  be  noted  that  any  future 
changes  to  the  data  records  of  these  two  systems  could  have  an  impact  on  SRS. 


The  SRS  history  file  is  a sequential  file.  The  file  depends  on 
batch  processing  for  the  preliminary  and  updating  processes.  The  SRS 
history  file  has  never  been  intended  as  an  on-line  file  for  inquiry 
purposes.  The  intended  output  of  the  SRS/RG  system  is  sums,  counts, 
profiles,  rates,  averages,  i.e.,  aggregate  information. 

In  its  present  form  SRS  contains  13  record  areas  (the  areas  are 
listed  in  Section  2.2).  The  record  can  be  expanded  to  15  areas  without 
reprogramming  required.  The  programs  have  been  written  using  a top-down, 
modular  approach  which  will  facilitate  maintenance/changes  to  the  system. 

2 . 2 Macro-overview . The  SRS  history  file  is  a longitudinal  historical 
file.  Each  new  event  for  a particular  Marine  is  added  to  the  record  for 
that  Marine  without  destroying  the  previous  information.  The  following 
is  a description  of  the  contents  of  the  records  in  SRS. 

There  are  15  areas  in  the  SRS  record  (13  reserved  and  2 spares). 
The  record  areas  are: 

1.  Fixed 

2.  Scores 

3.  Military  Education 

4.  Enlistment 
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5.  Extensions 

6.  Grades  (Ranks) 

7.  Unauthorized  Absences  (Short) 

8.  Unauthorized  Absences  (Long) 

9.  Desertion 

10.  Transfers 

11.  Turbulence 

12.  MOS 

13.  Bonus 

14.  & 15.  Spares 


The  Fixed  area  appears  only  once  in  each  record  and  is  constant  in 
length.  It  contains  certain  static  information,  such  as  sex,  race,  date 
of  birth,  etc. , and  some  changeable  information  such  as  number  of  depen- 
dents currently,  billet  MOS,  civilian  education  currently,  etc.  The 
detailed  contents  of  the  Fixed  area  are  as  follows: 

1.  Area  count  table.  (A  table  of  counters  indicating  how  many 
replications  there  are  of  each  of  the  variable  areas). 

2.  MID  (SSN) 

3.  Name 

4.  Initials 

5.  Race 

6.  Sex 

7.  Ethnic  Group 

8.  Home  State 

9.  Home  County 

10.  Date  of  Birth 

11.  AFADBD 

12.  Actual  EAS 

13.  PEBD 

14.  Graduation/Separation  Date 

15.  Graduation/Separation  Flag 

16.  MCC  Enlisted  At 

17.  Duty  Limit  at  Entry 

18.  Citizenship 

19.  Marital  Status 

20.  Number  of  Dependents  at  Entry 

21.  Number  of  Dependents  Currently 

22.  Civilian  Education  at  Entry 

23.  Civilian  Education  Currently 

24.  Program  Enlisted  For 

25.  Billet  MOS 

26.  HMF  Source  Flag 

27.  Active/Inactive  Flag 

28.  Cohort  Date 

29.  RAMS  Flag 

30.  Last  Change  Date 
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The 

Scores  area  appears  only  once 

and  contains  the  following 

1. 

AFEES  Form  Number 

2. 

AFEES  Scores 

3. 

AFEES  Mental  Group  Score 

4. 

AFEES  Test  Flag 

5. 

Depot  Form  Number 

6. 

Depot  Scores 

7. 

Depot  GT  GCT  Score 

8. 

Depot  Test  Date 

9. 

Typing 

10. 

EDPT 

11. 

ALAT 

The 

Military  Education  may  appear 

zero  to  twenty  times.  Presently 

the  TRS  does  not  provide  information  on  military  schools.  When  the  school 
information  is  available  it  will  be  included  in  the  SRS  history  record. 

The  Enlistment  area  may  appear  one  to  twenty  times  and  contains  the 
following  data: 

1.  Source  of  Entry  Codes 

2.  Date  of  Enlistment 

3.  Length  of  Enlistment 

4.  Component  Code 

5.  Separation  Code 

6.  Reenlistment  Indicator 

7.  Separation  Date 

The  Extension  area  may  appear  zero  to  nine  times  and  contains  the 
following  fields: 

1.  Total  Months  of  Extensions 

2.  Total  Number  of  Extensions 

3.  Date  of  Latest  Extension 

4.  Months  of  Latest  Extension 

5.  Enlistment  Cross  Reference 

The  Grades  area  may  appear  one  to  twenty  times  and  contains  the 
following  fields: 

1.  Grade  (Rank) 

2.  Date  of  Rank 
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The  Short  Unauthorized  Absence  area  may  appear  from  zero  to  thirty 
times  and  contains  the  following  fields : 

1.  Date  of  Unauthorized  Absence 

2.  Status  Flag 

The  Long  Unauthorized  Absence  area  may  appear  from  zero  to  thirty 
times  and  contains  the  following  fields: 

1.  Date  to  Unauthorized  Absence 

2.  Date  from  Unauthorized  Absence 

3.  Status  Flag 

The  Desertion  area  may  appear  from  zero  to  twenty  times  and  contains 
the  following  fields: 

1.  Date  to  Desertion 

2.  Date  from  Desertion 

The  Transfers  area  may  appear  from  one  to  twenty  times  and  contains 
the  following  fields: 

1.  Former  MCC 

2.  Present  MCC 

3.  RUC 

4.  Begin  Date 

5.  Strength  Category 

The  Turbulence  area  may  appear  from  zero  to  twenty  times  and  contains 
the  following  fields: 

1.  Present  MCC 

2 . Former  MCC 

3.  Intended  Transfer  Date 

4.  Date  Current  Tour  Began 

5.  Date  of  Action 

6.  Reason  Code 

7.  Tour  Control  Factor 

8.  PCS  Cost  Code 

9.  Trainee  Flag 

10.  Reason  Flag 

11.  Last  Date  Detached 

12.  Geographical  Location  Code 

13.  Geographical  Date  Current  Tour  Began 
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The  MOS  area  may  appear  from  zero  to  twenty  times  and  contains  the 
following  fields: 


The  Bonus  area  may  appear  from  zero  to  ten  times  and  contains  the 
following  fields: 


1.  SRB  Bonus  Type 

2 . Zone 

3.  Bonus  Date 


The  following  chart  provides  a macro-flow  depiction  of  the  SRS 
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The  SSN  change  process  is  shown  in  greater  detail  in 
Section  3. 


SECTION  3.  PROGRAM  OVERVIEW 

3.1  Interfaces.  For  the  on-going  SRS  system,  there  are  only  two  Inputs 
from  the  HQMC  systems.  One  of  the  inputs  is  the  RAMS  file.  The  other 
required  input  is  the  transaction  data  from  the  Transaction  Retrieval 
System  (TRS) . 

At  the  present  time,  the  TRS  input  is  provided  from  two  sources. 
One  of  these  sources  is  the  "regular"  TRS  records  containing  data  on 
enlistments,  extensions,  promotions/reductions,  unauthorized  absences, 
desertion,  MOS  and  bonuses.  These  are  the  transaction  records  containing 
a Type  Change  Code  (TCC)  of  AO,  AN,  A4,  A5,  A6,  A7,  A8,  DB,  DC,  DE,  DH, 
0Y,  D2,  D3,  D5,  EF,  EP,  ER,  EX,  Rl,  R2,  R3,  R4,  R5,  UA,  Ul,  U5,  U6,  U7, 


The  other  TRS  source  inputs  the  data  records  containing  information 
on  Transfers  and  Turbulence.  These  transaction  records  contain  a TCC  of 
JD  and  JP. 

3.2  Potential  Changes.  Certain  changes  could  occur  in  the  RAMS  file 
without  affecting  SRS.  For  Instance,  if  the  recruiter  MID  was  eliminated 
from  RAMS  (but  the  space  maintained  for  future  use)  no  changes  to  SRS 
would  be  needed  since  SRS  does  not  use  recruiter  MID.  However,  if  some- 
thing like  the  language  aptitude  score  were  changed  (deleted,  expanded, 
made  numeric  instead  of  character)  then  changes  would  be  required  in  SRS. 

Similarly,  there  are  certain  key  fields  in  TRS  that  could  have  an 
effect  on  SRS.  A detailed  list  of  the  key  fields  will  be  given  in 
Section  A as  part  of  the  program  descriptions. 

3.3  Error  Messages  from  the  UPDATE  Process.  Some  of  the  transactions 
that  are  fed  into  the  update  process  may  fail  some  of  the  validation 
checks  built  into  the  program.  For  Instance,  a transaction  may  indicate 
that  a Marine  is  returning  from  desertion  when  the  history  file  has  no 
record  of  the  Marine  deserting.  Following  is  a list  of  error  codes  that 
will  be  associated  with  those  records  that  fail  the  edit  tests: 
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A-01  - An  A7  (from  desertion)  transaction  record  has  been  found  with  no 
record  of  a previous  'to  desertion'  (R4)  transaction. 

A-02  - An  A7  transaction  record  has  been  found  with  a date  preceding  the 
"to  desertion"  date. 

A- 03  - An  A-type  transaction  record  has  been  found  where  the  history  record 
has  no  initial  enlistment  information. 

A- 04  - An  A-type  transaction  record  has  been  found  that  does  not  fit  into 
the  enlistment  update  logic. 

A-05  - An  A5-type  transaction  record  has  been  found  where  the  date  is  not 
greater  than  the  present  enlistment  date. 

A- 06  - An  A5-type  transaction  record  has  been  found  where  no  valid  previous 
R-entry  appears. 

A- 07  - An  A7  (from  desertion)  transaction  has  been  found  with  no  "open" 
desertion  record. 

R-01  - An  R4  (to  desertion)  TRS  record  has  appeared  without  an  A7  (return 
from)  for  the  last  instance  of  desertion. 

R-02  - An  R-type  TRS  record  has  been  found  where  no  initial  enlistment 
data  appears  in  the  SRS  history  record. 

R-03  - An  R-type  TRS  record  has  been  found  that  does  not  fit  into  the 
enlistment  area  logic. 

R-04  - An  R2/R5-type  TRS  record  can  not  be  matched  up  with  its  proper 
A-type  data. 

R-05  - An  R1/R3  type  TRS  record  has  invalid  data  in  date  of  action  field. 


R-HA  — An  R?  /RS  fvnp  TRS  rororJ  Kao  Koon  fnnn/1  #*Kaf-  hoc  t*Ko  CPC  f-flo 
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U-01  - A 1)9  transaction  has  been  found  with  a U1-U5  predecessor  and  no  UA 
with  a matching  date. 

l>-02  - A U-type  transaction  has  been  found  that  is  not  a Ul,  U5,  U6,  U7, 
or  U9  (or  UA). 

U-03  - A Ul  transaction  has  been  found  when  there  is  an  "open"  Ul  area 
already. 

U-04  - A Ul  transaction  with  a correction/deletion  code  of  2 does  not  have 
a previous  record  to  correct. 

U-05  - A Ul  transaction  with  a correction/deletion  code  of  2 does  not 
have  an  "open"  Ul  record  to  correct. 

U-06  - A Ul  transaction  with  a correction/deletion  code  of  1 does  not  have 
a previous  Ul  record  to  correct. 

U-07  — A Ul  transaction  with  a C/D  code  of  1 does  not  have  an  "open"  Ul 
record  to  correct. 

U-08  - A U5  or  U6  or  U7  transaction  has  been  found  with  no  previous  Ul 
entry. 

I 

U-09  - A U5  or  U6  or  U7  transaction  has  been  found  with  no  "open"  Ul 
entry. 

U-10  - A U5  or  U6  or  U7  transaction  with  a C/D  code  of  1 or  2 has  been 
found  without  a U1-U5  or  U6  or  U7  predecessor. 

U-ll  - A U9  transaction  has  been  found  with  no  previous  Ul  entry. 

U-12  - A U9  transaction  has  been  found  with  a C/D  code  of  1 or  2 and  no 
previous  U1-U5-U9  record. 

U-13  - A U9  transaction  has  been  found  without  a U1-U5  predecessor  and  no 
UA-short  entry:  may  predate  the  file. 


- 9 - 
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D-01  - A D-type  transaction  was  found  that  does  not  fit  into  the  grade 
update  logic. 

D-02  - No  previous  grade  exists. 

P-03  - A DB/DH/D2  (promotion)  transaction  was  found  where  the  new  grade  is 
not  greater  than  the  old  grade. 

D-04  - A DC/D4/D3  (reduction)  transaction  was  found  where  the  new  grade  is 
not  less  than  the  old  grade. 

E-01  - An  E-type  transaction  does  not  fit  into  programmed  logic. 

Z-01  - Transaction  record  with  no  matching  SRS  history  record  (not  an  AO 
or  AN-001  combination,  or  A6). 

Z-02  - Transaction  record  which  is  not  an  A-,  R-,  D-,  U-,  E-type  or  JD, 

JP  type. 

Z-03  - RAMS  record  with  no  mathcing  SRS  history  record. 

Z-04  - RAMS  record  with  missing  or  invalid  depot  scores  where  the  master 
record  is  more  than  6 months  old. 

Z-05  - Apparently  duplicate  transaction  record. 


- 10  - 
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3.4  System  Flow  Chart.  The  system  flow  chart  shows  the  interrelationships 
and  inputs/outputs  of  the  prograras/processes  in  the  SRS  system.  For  the 
actual  processing  the  following  sequence  of  jobs  is  recommended: 

1.  SRSX239 

2.  SRSE239 

3.  SRS239 

4.  SRSXJD 

5.  Merge  XJD  and  X239  output 

6.  SRSTSSN 

7.  Merge  TSSN  output 

8.  SRSHSSN 

9.  Merge  HSSN  output 

10.  SRSUPDT 


The  following  chart  shows  the  actual  relationships  among  the 
programs : 
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SECTION  4.  PROGRAM  DESCRIPTIONS 

4.1  Program  SRSX239.  This  program  is  the  first  to  be  run  in  each  cycle. 
Each  cycle  will  be  run  on  a quarterly  basis. 

4.1.1  Description.  Input  to  SRSX239  is  the  TRS  file  containing  the  A-, 

R-,  D-type  transactions,  etc.  This  program  splits  the  input  into  two 
outputs.  One  output  is  written  onto  tape  and  will  be  input  to  the  "Merge 
XJD  and  X239"  process.  This  tape  contains  all  the  regular  transactions 
(everything  except  JP-  and  JI>-type)  that  will  be  used  in  updating  the  SRS 
history. 

The  second  output  from  this  program  is  written  onto  a disk  file. 

This  file  contains  all  the  MID  (SSN)  change  transactions.  These  trans- 
actions are  identified  with  a TCC  of  AN  or  Rl  and  a TTC  of  239.  This  file 
will  be  sorted  and  then  input  to  program  SRSE239. 

The  input  to  SRSX239  does  not  have  to  be  in  any  particular  sequence. 

4.1.2  Key  Fields.  The  following  fields  are  used  in  program  SRSX239. 

I Changes  to  these  fields  in  TRS  may  have  an  effect  on  this  program. 

DATA  NAME  DESCRIPTION 

MID 
TCC 

DO-ACTION 
TTC 


Marine  identification  number 
Type  change  code 
Date  of  action 
Type  transaction  code 
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H.01.3  JO1'  Sc.luP. 

THE  F'U  LOSING  Sfc.'JU-'ICt-  OF  CAROS  WILL  INVOKE  T'^t  PRUGKftO; 


C / / 1 5 7 0 3 1 i 1 2 OUy  l&OlK.hPit  ) * '4‘iJ.Sb  TttPLES  • « V i -lE=  < ? ) 

/♦HOOVE  Xtu  A03U 

//JOrtLIB  UU  US,\j=riOr‘:C  1 • i»  iv  • G l wiL  i t<  * Di bp  = bht< 

< //  EXEC  Plii'!=  lEHPKOGrl » KEG  1 0>Vl=2bK 

//SYSPRIMI  UU  i>TSOUT  = A 
//SYSOUT  Ul>  S>YSOjT  = A 
0 //SYS1N  UU  * 

UNCAILG  US'XAME=HQriCl.f’.PI2.U10SU.SR&X239G 
(JNC  A 1 LG  US''*  A.'lEsHQMC  1 • ik'p  1 ? , U t U8u  » SRP  X23r5U 

C /* 

//  E * EC  PG'“'  = i>KSX239 
//SYSPRIMT  00  SYSOUf=A 

C //SYSUUT  DO  SYSOUT=A 

//SYSUOUMH  00  SYSOUT -A 

//vSYSuyoui  od  svsour^A 

€ Z/STAlOUT  00  OS.M=HGHC1.i*>PI2*C10oo.SrSX2J9G. 

//  UMITs^HUO-J. 

//  OCP=l*Xt.Cf  M=F3,  LHECL  = 2^0  »BLRS1  AE  = 2'4VJI'  ) » 0 1 SP  = IWFW  , C A I Lb  ♦ OfclLEl  E ) 

€ //0U1239  00  USM=HOr,iCl  . f!PI2.  >- 1 0«u  • SR 3 *23GD  » 01  $P=  J UEU  * C ATLO  * UELE TE  ) • 

//  SPACE-  l I HR  * ( SO  1 2 ) 1 KLSt- ) » 

//  UCa=(RtCF0=FH, LRECL  = 24Q  »BLKSIAE  = 24U0 ) , UN1T=A33U 

C //SVAVFIL  E OD  DlSP=CL3«OSr\i=UQi»iCA.AP12.C1060.PSlH»UlHF*67byt.VOO 

/* 

//  EXEC  IECEASE  *PAK>i=*  10705112' 

f /* 


// 


I 
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Note  The  DSNAME  labels  that  appear  in  the  uncatalog  statements 
(lines  8 and  9)  must  be  the  same  as  the  DSN  labels  in  STATOUT  and  OUT239 
(lines  16  and  19) . 

Note  2.  The  DSN  label  on  the  STATFILE  DD  card  must  be  the  name  of 
the  current  regular  transaction  file. 

4.1.4  Normal  Output.  The  following  report  copies  depict  the  normal 
output  from  this  program. 


STATISTICAL  RETRIEVAL  SVSTEH 


TM-60418 


4.2  SRSE239 


4.2.1  Description.  This  program  is  an  edit  step  in  the  SSN  change 
process.  The  purpose  of  the  editing  is  to  ensure  that  there  are  pairs 
of  transactions  (Rl-AN)  for  each  SSN  change. 


Since  the  SSN  will  be  different  in  each  of  the  transactions,  the 
records  must  be  sorted  on  some  common  fields  to  mate  up  the  pairs.  The 
sort  fields  are  name,  date  of  birth  and  date  of  transaction.  The  second 


step  of  this  job  is  a sort  process  to  group  the  transactions  by  name,  etc. 
The  third  step  performs  the  editing  function  of  checking  for  the  presence 
of  both  transactions. 

The  input  to  this  program  is  the  disk  file  output  from  SRSX239. 

This  program  will  also  output  a disk  file  of  edited  records  to  be  used 
as  input  to  SRS239. 

4.2.2  Key  Fields.  The  following  fields  are  used  in  program  SRSE239. 
Changes  to  these  fields  in  TRS  may  have  an  effect  on  this  sort  process/ 
program. 

DATA  NAME  DESCRIPTION 


TCC 

DO-ACTION 

MID 

INITS 

DO-BIRTH 

L-NAME 


Type  change  code 
Date  of  action 

Marine  identification  number 

Initials  of  name 

Date  of  birth 

Last  name  of  Marine 


18  - 
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4.U2.3  JOH  St^uP. 

TML  f-'JLLU  .il  uG  SEQUENCE  OF  CAwU'S  UlLL  INVOKE  TPE  PROGRA'"': 

c 


( //13 7 03112  UUJ  <B01K«»'iPl2)  , *AAiFb  Tt-CpLtS'  , r 1 4E=(  00  , 17  »♦»  Y^KUi"=HOLO 

/*Kt*urt  xtJ  0530 

//UNPL1H  UU  ‘JbN  = Hyr  Li.  A01N»Gl^i>Liy«l)lS3  = iiH-< 

C //  E*EC  PG?,i=lt.Hf>i<JGi‘  *Kt.GJ0l'!  = 2bK 
//si  sprint  uu  srsuur=A 
//sysout  oo  srsour=A 

C //SYSAN  no  * 

UNCAlLG  US!MAv'fc.  = HOrtCL.r''Pl  >.Ci  )flO»SKSt.23yG 

/* 

€ //STtPl  EXEC  PGi‘i  = lLKWCuOU 

//SOKTLIH  00  USg=SrSl.SOOTLlotOI3P=biO 
//S  Y SOOUilP  00  SYSOUT  = A 
C //SYSOUT  L'O  SYSOl)  I =A 

//SCAT  IN  00  US\|  = HQSSC1.  “!PI2«C10O0.S«SX23bL),r.)iSP=0LU 
//SORlwK'Ji  00  U'\»IT=SYSOA,SPAOE=(  »Sk}v1U0)  ) 
t //bir<r>'K02  oo  u ^4 1 1 = l S Y b 0 . b E P = G 0 A 1 K U l J t A F F = S 0 K r W 3 0 1 1 
//  SFaCE= l TKK • (100) ) 

//SOS  r.-»*03  uu  u UT={SYS.Ji\»St.p=(bUKT^^0l,SOKTWK02)  ) * AFF-SOKTr.M)l  i 
C //  SPACE=(TAA, ( 1U0) ) 

//SOW  I OUT  uu  USI\I  = &S0I«1  our  I 

//  iTISP=(Nfc.,i,PASSI  i 

C //  li  ma  1=3  530 , sp ace  = < t rk  * t so  * ^ ) ) * 

//  DCa=(KLCF  i = F3.LWECL  = 2‘»0»B‘-KSIAE=2(fUU ) 

//SYSIiM  00  * 

€ SORT  FIELUS=ll:i0.20,CH.  A,  72  « '4  % PO , A * 3 , <+  « pU  , A ) , FiLS*=E45U0 

/* 

//  EXEC  FGl”i-bKSE239 


< 

//SYSPRINT 

00 

SYSOUTrA 

//SYSOUT 

00 

SI  SOU  1 =A 

//S  Y SuUUiNP 

OJ 

SYSOur=A 

it 

//S  YSUBOl'I 

00 

SYS0U1 = A 

1 - 1 

//LKW“E3bO 

00 

SYSOUT=A 

//bb.-JCHOUT 

00 

0SN=H9*IC1  • 'IPI^.C1U80.SKSE239U» 

< 

//  OlbP 

= UML  Ai , 

C4TLG. DELETE)  ,U’*I  1=5.53  0 , 

//  SPACE=lTWK 

*(80*2),  RLSE ) « 

//  0Co= 

( K t.  C F :"i 

= FO,LRECL  = 3l,BU'SIZC  = 3100  ) 

( 

//SSNCHGIt  M 

UQ 

USN=&SOR TOUT  * 

//  OISP  = (UL'J,UELETt.)  ,UNI  I =33<?» 

/* 

C //  EXEC  IELtASr*PAHikl=*  Ib70*122l 

/* 

// 

C 


( 


c 

c - 19  - 


c 

f ~ ‘ ........  -.1 


A 
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Note  1.  The  DSNAME  in  the  uncatalog  statement  (line  8)  must  be  the 
same  as  the  DSN  in  the  SSNCHOUT  DD  statement  (line  33). 

Hote  2.  If  the  positions  of  the  L-NAME,  DO-BIRTH,  or  DO-ACTION 
changes  in  the  TRS  file,  corrections  will  be  needed  in  the  SORT  FIELDS 
card  (line  25). 

4.2.4  Normal  Output.  The  following  report  copies  depict  the  normal 
output  from  this  program. 


t 
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4.3  SRS239 


4.3.1  Description.  This  program  forms  a table  of  SSN  changes  to  detect 
multiple  changes  for  an  individual.  For  instance,  if  a Marine  has  the 
MID  number  A and  changes  it  to  the  number  B then  later  changes  it  to 
C the  program  is  designed  to  detect  these  changes.  There  may  be  some 
transactions  under  number  A that  must  be  changed  to  C . Similarly, 
there  may  be  some  transactions  filed  under  number  B that  also  must  be 
changed  to  C . This  program  constructs  correction  records  that  will  be 
used  to  update  the  SSNs  in  the  transaction  file  as  well  as  the  history 
file. 

The  output  from  this  program  is  two  disk  files ; one  for  correcting 
transaction  records,  one  for  correcting  history  records. 

The  input  to  this  program  is  the  edited  paired  records  from  SRSE239. 

4.3.2  Key  Fields.  This  program  depends  on  its  input  from  constructed 
records  produced  by  SRSE239.  As  long  as  the  MID  field  is  character  and 
the  date  of  action  is  packed  decimal,  no  changes  should  be  necessary. 
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H.04.3  JOb  SHOP. 

THL  FULLO'.-'lflG  SEOUL MCE  OF  CAROS  WILL  I'lV'-KE  THL  PRUGRn'i: 


//1t:j703122  JOb  (fe01R»NPI2)  « “0^65  TEE^LtS ' t T XuF.s  l 00  « 17  > t T YPRUfvrHOLO 

/♦KOUIE  x t. M 3850 

//JJtJLlO  00  US  j=MOfUiC  1 • AO  1H  » G IhibL  1 b • OiSo  = SHK 
//  LX  EC  Pbft=  X EHPROGP « RES I 0N=2SK 

//SYSPRlMl  uu  SYSOJT=A  ♦ 

//SYSOUI  00  ST  SOU  T = A 

//sysxm  no  * 

U^'CATLO  US*'U»i“!£=HQf'ICl  • l"!PI  2 • L 1 06u  • SKbG  • StATUP 

UNCATL6  US'MAriErHUrtCl  . MP 1 2 . L 1. 0 tJU  . SRbG  • ri  I S TUP 

/* 

/(  ExEC  Pb1=SRS23y«KEGIU'J  = 130K 

//SYSPRlMl  or.)  SYSOUT  = A 

//SYSOUT  00  SYSOUf=A 

//SYSUOUMP  OD  SYSOUT  = A 

//SYSUbOUl  00  SYSOUV=A 

//1UF1LE  ou  USU  = uQiviCl.NPl'2.>-l08U.SKGL2AOGtUISP  = 0L0 

//W0KK1  UO  USN  = &Ai'JISP=(  »P«SS)  »SPttCts=lCfL»lJ  tU|\|Ir=3330» 

//  OCQ=(  RECFw)=F«LbECL  = 31  ♦OLKSl2t=31 ) 

//W0KK2  00  0SM  = 4tb  »»J  I SP=  ( » PASS  ) * 3PACt=  ( L'  YL  » 1 ) » U|\]lT  = 333U  > 

//  UC3=(RFCFl''i=F«L«ECL  = 31»aLKSl2t.-31) 

//thou r ou  DSw=Hum;i . *ipi 2 . cA'ot>u • srsg . stay up» uni  • = 3330 « 

//  OfSP=l »CAILG»0ElL1E> ,SPACL=(TRR» ( 1»1) «KlS£) * 

/'  OCd=  (ALCF  ••!  = £«,  LKLCL  = 3i  »bLASi2L  = bl oil ) 

//HISTOUT 


USr>!=HOriCl  .up  12*  ClOJO.SRSb.HIS  TUP tUMi  1 = 3330  » 


DISP=l  »CATL3«0ELE1E>  , bPACE=l  P<K  * l l » 1 ) iRLSE)  » 
0Ct)=lRECF*=FB,LKECL=2b  , BL^S X ZE=20  oU  ) 


EXEC  IELEASE. PAR, vi=*  15703202* 
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Note  1.  The  DSNAME  in  the  first  uncatalog  statement  (line  8)  must 
match  the  DSN  in  the  TROUT  DD  statement  (line  21). 

Note  2.  The  DSNAME  in  the  second  uncatalog  statement  (line  9)  must 
match  the  DSN  in  the  HISTOUT  DD  statement  (line  24). 

4.3.4  Normal  Output.  The  following  report  copies  depict  the  normal 
output  for  this  program. 

I 


01*?»22672  * t 74022&  * 720630 
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4.4.1  Description.  This  program  accepts  one  of  the  transaction  files 
as  input.  It  expects  the  file  containing  the  JD-,  JP-,  TR-type  transac- 
tions. The  JD  and  JP  transactions  are  split  off  the  file  and  output  onto 
a tape.  The  TR  transactions  are  ignored. 


i • 


The  output  of  this  program  is  fed  into  the  "sort/merge  XJD  and 
X239"  process  (along  with  the  output  from  SRSX239) . 


4.4.2  Key  Fields.  The  following  fields  are  used  by  this  program.  Any 
changes  to  these  fields  in  TRS  may  affect  this  program. 

NAME  DESCRIPTION 

TCC  Type  change  code 

DO-ACTION  Date  of  action 

MID  Marine  identification  number 


- 26  - 
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4.U4.o  JOb  St-IUP. 

rot  following  slouemcl  of  canus  will  i a'oke  ihe  pkugkah; 


// J V/Li  o,'U2  UUJ  ( f»  0 1.  K » >'iP  1 2 ) * • 4 4 ■*■  lC.£oLtS*  ♦l  l vf=l  J)  .TYFKU.-J-rtULO 

/♦null  I t Xc.U 

//J'UILU)  DO  USi'!=fiy  '•1C  l .Afmi.Si^LitAOlSPSSHK 
//  EXEC  PbN=lLHPi{(»r-,H«r(LGIC'iM  = 2bK' 

//vSYSOK  I.'JT  UO  SYSJJl=« 

//sysout  uu  br sou r=A 

//SYS1N  ’JU  * 

JNC  A l LG  13SI4A  tE=HOMC  1 . F P l 2 . L 1 OfcU  . SK&X  JO  S 

/ * 

//  LX  EC  Pfji'l-SKSX  JU 
//SYSPKINT  00  SYSOUT=A 

//SYSUUT  JO  SYS0UT=4 

//SYSUOUKP  JO  SYSOLT=A 

//SYSlJtfOUT  00  SYSU'JY  = A 

//TKJblM  UJ  USM=HUWCI  . A F 7 3 . LI 7 9U  . PS1.4GT JH . G760oVO 0 . Di  SP=ULU 

// OUOUT  UJ  OSi^HWiACl.MPig.Cf  0P0»SHSXJOG« 

//  UMI  T=24U0-5, 

//  0Cb=lKLCF,-1=FQ.LHE  CL  = 2'+'J  t B*-KS  1 A£=24U  0 ) t 01  SP=  » NO  , CA  I LG  . ufclLET  t ) 

/* 

//  EXEC  ILLtASE.f*AR,'i=*  ID7L0212I 

/* 

// 


( 
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Note  1.  The  DSNAME  in  the  uncatalog  statement  (line  8)  must  be 
the  same  as  the  DSN  in  the  JDOUT  DD  statement  (line  16). 

Note  2.  The  DSN  in  the  TRJDIN  DD  statement  (line  15)  must  be  the 
name  of  the  current  transaction  file  containing  the  TR-,  JD-,  JP-type 
transactions. 

4.4.4  Normal  Output.  The  following  report  copy  shows  what  the  normal 
output  should  be. 
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4.5  Merge  XJD  and  X239  Output 

4.5.1  Description.  This  job  is  a three-step  process.  All  of  the  steps 
use  Syncsort.  The  first  two  steps  are  sorts  and  the  last  step  is  a merge 
of  the  outputs  of  the  first  two  steps. 

The  input  to  the  first  step  is  the  tape  that  was  output  from 
SRSXJD.  The  input  to  the  second  step  is  the  tape  that  was  output  from 
SRSX239. 

The  output  from  this  process  will  be  a tape  file  of  all  the  trans- 
actions that  will  be  used  in  the  update  process.  The  transactions  will 
be  in  order  by  MID  and  date  of  action. 

4.5.2  Key  Fields.  The  sort  fields  for  this  job  are: 

NAME  DESCRIPTION 

Marine  identification  number 
Date  of  action 
First  character  of  TCC. 


- 30  - 


MID 

DO- ACTION 
Col.  1 
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4.Ub.b  JOb  SLIUP. 

pit.  HULLO  1 (j G SEQUENCE  OF  C ARUS 


JLL  i I fit  PRUliKAi’i: 


// [‘57H.5212  JtMJ  » « 1 fcC-PLto-S.“i  AJu-^239*  * I 1 '"i£  = ( 1 5 ) • 

//  • T r Fr<Li‘i=tiOL.L) 

/ *KOU  I t Xt-li 

//  t X fc  C PGH=itH':>«0G”l»RE;faI0M=26K 
//SrSPKI*'l  UU  GY  SOilT  = A 
//SVSCU!'  UO  L>YVJUl=A 
//b YSl.M  CU  * 

JilCAl  LG  Li5>  ')A.'iL=hOi-iC  :L  . Op  1 2 . L l 0 P U . St\*G  . b;>K  l S 1 a 1 

/* 

//bTLRl  F.X.LC  PUYluIEKKCOUQ  » REG  10f>i=l  GO1'* 

//SURTLIU  00  US ■■.irSrSl.SOKU  ia,UI*P  = SMK 
//SYSUOUGR  OU  SYSUUY=A 

//srsuur  uu  stsuui=a 

//  SOR  1 IN  UO  U$!\  = HG!-iC.l  .v'lPI?  .C10G0  .St'SX  Jbt, , 01SP=0L0 
//SORTWKOl  * !>->  U-MI  r = SYSI.irt.SPALEs(VrYLt  lO/t>)  » 

//SORlNKOi  OU  UNir  = SYbUA,SPAU£=(UYUt  io/o)  > 

//SOR  rtiKOd  uu  UNir  = SYGfjA,SPM-r=(LYL,  IO/G)  ) 

//SOP  I -mOR  OU  UMI  I =SY SOA i S« AL£= < u YL t t 0 fb)  > 

//SURP-.'Kntj  uu  UNI  I=SYSDA,SPALE=IUYL«  jOYL>)  > 

//SORUAOb  UU  UN  I l=SYbUA  , S->i>ur=  ( v-yl  , i 0 Y d ) ) 

//SORIOUT  OU  USN  = *jQ»01SP  = iiNF.>»PASS)  » 

//  UMIT  = aMOU-G,fjCB=(  R£CF,v!=FU.LRt.CL=<i4U  * BLKS  I / £=2^11 0 ) 

/ / S Y S 1 N UU  * 

SO* I F I FLUS= 111 i 1 Q * CH i A i 3 « 4 « PO  * « * 1 » 1 1 Ch , U ) 

/* 

//STEP?  EXEC  P G N = i E R R C 0 1}  (I  » R E G 1 0 N ~ 1 b 0 A 
//SOiULIB  UU  USN=SrSl.SORILlt|DiPP=SuR 
//SYSUDU'IP  uU  SYSUUT=A 
//SfSUUI  00  SYSOJl=A 

/ / S 0 R 1 1 i'J  UO  L*S;|SHQWC  1 . NP I <2  • C10?0  . SKSX23yii » 0 i SPsOLU 
//SOR  t OKI)  l OU  UNIT  = SYS0A,S3ALE;=(UYLi  | 0 to)  ) 

//SOKlWKUJi  uu  UNI  I =SYGUA,  SPALc;=(LYL,  j 0 AS)  > 

//S0KTLKM5  UU  UI\1I1=SyS0a»SPAL£-(gyi.  » | 0 7b  ) ) 

//SOR  Tin1  ft  04  LIU  UNI  l=SYSOAtSpALE=(lrYL.  i'J/b)  ) 

//SOKIUKOL)  UU  UI'JI  I = SYGOA  , S JAL£=  l L Y L » | U YU  ) ) 

//SOR  rVKOfa  uu  U NTT  =SYbuA  , s JrtUE=  ( ^-Yl  t i U /b  ) J 
//SURfOUT  uu  USN  = 4X23^iUISP=(NM-;*pASS  J , 

//  UNlT=2‘tOU-i,oCO=(RLLF'i=FO«LRt.CL=*40.3LKSlZE=J;4UU ) 

//SYS  li'J  UU  * 

SORT  FICLuS=  l 1 1.  , X *J  1 CIH  A t 0 » 4 * PU  » A , 1 , L , Cn  , 0 ) 

/* 


//SUR  I K n b 
/ / S U R I V A 0 b 
//SOR I OUT 


//sor  rvROfo 

//SOR I OUT 
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4 . 0 j .5  COWl  1 *'»Ufc.U  . 


EXhC  Ho ‘islh  KRCiJOCl , 4F  b IUO=lbO^ 

//SO*  rtlH,  OU  US^  = Sr$Y .SOK  *H=SrW 

//sysuou-ip  uu  crsour=A 
//SYSUUT  uu  srsU'.'T  = 4 

//SU‘<  » iNOl  UU  OSM=AJU«OtSP-(OLU»UtUEl't.) 
//SOrtllhlUZ  uu  us ■'isjuj'i'l.  U^P=(ULO.UELtrt.) 
//SOKTOUT  Uu  USM  = HyfiCl.  “iPlc.ClWfUJ.iRSG.SOKTSTAl  , 
//  l>ISP=l  » C AYLo  . Ut.Lt  T t ) , u\i  I y ~ >40  0-3  , 

/ / L?Co=U<LCF,i  = Fl>.  LKfcC(.  = e'‘+0  .L'.LKS]^E  = imuU  ) 

//SYS1M  UU  * 

Fj£LUS=(  11 . 10  . CH.  A t 3. 4 ,P0»  A f Y • l « C'H.U  » 

/* 

//  t<tC  1ELLASE.P/Ult=»  157U-S?.22’ 

/* 

/' 


*US  PAGE  is  BEST  QUALITY  PRACIIGABLJ 
l COPY  PlHtlilSHED  TO  D2C 
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Note  1.  The  DSNAME  in  the  uncatalog  statement  (line  8)  should  be 
the  same  as  the  DSN  of  the  SORTOUT  DD  statement  of  the  merge  step  (line  48) . 

Note  2.  The  DSN  in  the  SORTIN  DD  statement  of  the  first  sort  step 

(line  14)  should  be  the  same  as  the  name  of  the  output  file  of  SRSXJD. 

Note  3.  The  DSN  in  the  SORTIN  DD  statement  of  the  second  sort  step 

(line  30)  should  be  the  same  as  the  name  of  the  tape  output  file  of  SRSX239. 

4.5.4  Normal  Output.  The  following  copies  of  Syncsort  output  show  the 
normal  outputs  from  this  job. 
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4.6.1  Description.  This  job  uses  two  inputs.  One  input  comes  from  the 
"sort/merge  XJD  and  X239  output"  process.  The  other  input  is  the  STATUP 
disk  data  set  from  SRS239. 

The  first  step  of  this  job  sorts  the  disk  input  into  old  MID  order. 
The  disk  data  records  contain  both  an  old  and  a new  MID  as  a result  of  the 
Rl-AN  transaction  records  for  SSN  changes.  The  old  MID  will  be  matched 
against  the  current  transaction  file  and  when  a match  is  found,  the  new 
MID  will  replace  the  old  MID  of  the  transaction  record.  The  changed 
transaction  record  will  be  written  onto  a separate  (disk)  output  since  it 
will  no  longer  be  in  the  correct  sequence.  The  unchanged  records  are 
written  onto  a tape  in  their  original  sequence. 

4.6.2  Key  Fields.  The  following  fields  are  used  by  this  program.  Any 
changes  to  these  fields  in  TRS  may  affect  the  operation  of  this  program. 

NAME  DESCRIPTION 

DO-ACTION  Date  of  action 

MID  Marine  identification  number 

INITS  Initial  letters  of  Marine's  name 
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4.Ub.A  SLIUP. 

THE  FULLO'-*lWb  StOOKVCt 


CARDS  W f LL  i 'V/OKE  THE  PRUbK  A**'  i 


//in  71*32.?*?  UJti  ( 40  l R • 4P1  2 ) • • TELPLEP-  ToS"*  t T int=  ( 04  > , T YPKUh=hOLi) 
/♦KUUIE  XKO  PSOU 

//uOh L [H  DO  US'l-HQ-  Cl  • AU1  >•  &J  i“5>Hh  tlHSpsSHR 
//  t*EC  Phi“t=lLHPHOG.i»KtG  l(D  = RbK 
//s yspk 1 1 1 r ou  sys<jut=a 

//SYS  (JO  I LJ  St  sou  r =/\ 

//sysim  ou  * 

JNC  A f LG  OSi'tAhErHQMC  1 .r-  p m .1  l ud«  .bK^CMhSD 
JimC  A I LG  USiMrtnEsh  ,>*iC  1 . HP  l?.Llu£u.SM*G«i»TAISOul 
/* 

//steps  exec  PGo=xeRKCoua 

//SORTLIB  00  USH  = SYS1  .SORT  Ll<-’,OIJ»P  = SHR 

//sysuoump  oo  sysout=a 

//SYSO'JT  DO  SYSO')T=A 

//SOM  1 0 L'U  DS\i  = M'Ji'iCl  . ”iPI2.ClUO0.SKSb.^TATUP.Ul  SH=OLO 
//SOHTWKOl  uu  UMIT=SYSL)AtSPALE=J  l«K»  *100)  » 

//S0KT»Kl)2  OU  UNU  = ( SYSliA  . SEP  = SO'<TK'MH  » * <u-  F = SOK  T'iKU  1 , 

//  SPACE=(  1 *<K  • (1U(J)  ) 

//SORT wK [| A D'J  U JIT=(  SYSnr,,SL3=(S0KTwKUl  .SORT  Aii\U2  ) ) « aFF=SUKT  « 

//  SPACE=lTKKt  ( 1U0  ) ) 

//SDK  I OUT  O'J  USiM  = XSrATUP*OASP=M  NEW»pASS>  « 

//  tji'li  r=PPPO  ,SPACL=(1  RK  » l I > . 

//  OCb=t  KLCF'l  = Fh,  Lkt  CL  = il  ,aL^Sl2L  = SlQ0  J 

//SYSIN  UU  * 

SORT  FIELUS=lltlO,CHiA) 

/* 

//  EXEC  KGl'i=SKS  I SSN 
//SYSPKIMT  DU  SYSOUT— A 

//SYSOUT  00  SYSUUI=4 

//SYS'JOUflP  OU  SYSOUT  =A 

/ / L l<  r<  H E S S G OU  SYSUUT=A 

//SSMCHGI'M  UO  USN=*S1  ATOP « D* SP= j OLD , ULLE 1 t ) 

//ST  ATSIU  UU  OSb^HQHCl  • '"'PI  2 • C 1CIOU  • SrSG  • SOKTST  A T ,OISP  = OLO 

//ST  A TSOi  |T  UU  0SM=HQ!"IC1*  vlP  I * . Cl  0 *U  . SkSG  . STAT  SOUTi 

//  UISP=1  * C A TL&« DELETE)  .0\n -2400-S  , 

//  OCH=t«LCFri=FBi  LRECL=24o  ,Bl-KSI^E=240a) 

//CHGSTATS  00  US.M-HO  JIC 1 • VP  I ^ • C l^bO  . sKSCHGSG , 

//  0ISP=lNEWtCATL6«0ELETt.)  .uiijlTsSilU, 

//  SPACL=< IRK* <b.?> «KLSE» . 

//  OCti=(RLCF'1  = FbtLKECL  = 2CfOt?LKSI^E  = 2i|.UU) 

/* 

//  EXEC  1ELLASF.PARM=* I67UPP32I 
/* 

// 

THIS  PAGE  IS  BEST  QUALITY  PRACIICASU* 
PBo*  OGt'Y  FUKHISHED  KTODG 


C 
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Note  1.  The  DSNAME  in  the  first  uncatalog  statement  (line  8)  must 
be  the  same  as  the  DSN  in  the  CHGSTATS  DD  card  (line  37). 

Note  2.  The  DSNAME  in  the  second  uncatalog  statement  (line  9)  must 
be  the  same  as  the  DSN  in  the  STATSOUT  DD  statement  (line  34). 

Note  3.  The  DSN  in  the  SORTIN  DD  statement  must  be  the  same  as  the 
STATUP  disk  file  output  of  SRS239. 

Note  4.  The  DSN  in  the  STATSIN  DD  statement  must  be  the  same  as 
the  output  from  the  "sort/merge  XJD  and  X239  output"  process. 

4.6.4  Normal  Output.  The  following  copies  of  reports  show  the  normal 
output  for  this  program: 


H1IN  SaaOD3»  30NVH0  NSS  Q3aiV<) 
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4.7  Merge  TSSN  Output 

4,7.1  Description.  This  job  is  a two  step  process.  The  first  step  is  a 
sort  of  the  changed  records  output  from  SRSTSSN.  The  second  step  merges 
the  changed  records  back  into  the  original  transaction  file. 

The  input  to  the  first  step  is  the  disk  file  that  was  output  from 
SRSTSSN.  The  sort  fields  are  MID  and  date  of  action.  The  inputs  to  the 
second  step  are  the  (temporary)  sorted  disk  file  from  above  and  the  tape 
output  of  SRSTSSN. 

The  output  will  be  a tape  file  of  all  current  transactions 
corrected  for  MID  changes.  This  file  will  be  used  to  update  the  current 
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4.U7.S  JOb  SEIUP. 

T UL  F0LL0„i!iG  SEQUENCE  OF  CARL'S  *ijLL  INVOKE  THE.  P R 0 b R A H ! 


//157U3252  J'Jd  ( 601H  , ^>1?  ) * * 1 fc.C-PLLb-f-1-rSSu*  , I i E = 106  ) , f ' PR'jWshOL U 
/ *KUU  I E *LU  PASO 

//  EXEC  PGri.=  lLHpr<OGf-iiREGION  = ?F.K 
//SYSPRIii!  UU  SrsuuT  = A 
//SYSOUT  L'O  SYSOUT =A 
/ / G Y S I IW  OU  ♦ 

ijwca  t eg  [)Simame=hu.'Mc  i .I'-ipra.cioeo.  srsg  . u?st  at 

/* 

//STEP6  EXEC  PGrlr  1 EHKCOtJG  < REG  I UI'.,=1Sijk 
//SORTLIO  LlO  US  \)  = SY  Si  . SOkTLIU  ,DI  Sp=$M.< 

//SYSUL'OHP  OU  SYSUUF=A 
//SYSOUT  UU  S t SOijl  =4 

//SORT  If\i  UO  USM=-  IQHC1  .NP12*  C10O0  .SKSCHpSG,  UISP=0Lu 
//SORTl-JKOl  UU  U'\JlT  = SYSDA»SPALEr(  |RK,  |bU0)  ) 

//SURTWK02  1>U  UlMl  r = ( SYSOa  , S£PsSO«  rwKU  A » , aFF  = S0K  INK  1)1  , 

//  SHACt:=(TKK*  (500)  ) 

//SOKTWKtJA  OU  U‘llT=(SYSUA»SLp=(i>0HTWKUl,S0RTl..'K02)  ) ,/\FF  = SUKl  .jKtU, 

//  SPACE=  U«K,(  500  ) ) 

//SORT OUT  OU  US:\i  = &CHGOUT»DiSP=U'!EWt?A$S>  , 

//  ui  !lT  = 3S5U  , SPACE=(  TKKi  ( 50  *<i  ) > * 

//  OCH=(KLCF''-FB,LRECL  = 2‘+0  ,OLKSl/.E  = i'HOO  ) 

SORT  FItLuS=(ll,10*CH»At3»4«PD,«) 

/ * 

//STEP'/  EXtC  PGrt=IERRCO*»0,REL>ION  = lbUK 
//SORT LIB  UU  US\'=SY S1.SOrILIu,OI*P  = SHR 
//SYSUDUNP  00  SYSO!jT  = A 
//SYSOUT  UU  srsoui=A 

//S!)R1  INul  uu  DS,'j  = HQt“iC3. . .IP  1 ? . C * UttU  . SKSs  . ST  A TSOUT , U I SP  = 0UU 
//SOKTIM02  UU  USf'  = *CHGOUT,UrSP=OLD 
/ / SOR1  OUT  UU  U0M=H'VtCl  . vi°  I 2 . Cl  OfM)  .SRSG.UPSTAT  , 

//  L)TSP  = ( NEW  , CATLG  , OELE  f E ) , UI>JI  r=<;4U'J-A, 

//  DCti=(i<ECF\  = FO,  LKECLsRH'J  « R*-KS  I *£=2^1)0  ) 

//srsiii  UU  * 

vjERC-t.  FIEL0S=l  11  « 10  * CH»  A t 3»  *E»  PU  * A ) 

/* 

// 
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Note  1.  The  DSNAME  in  the  uncatalog  statement  (line  7)  should  be 
the  same  as  the  DSN  in  the  SORTOUT  DD  statement  (line  30). 

Note  2.  The  DSN  in  the  SORTIN  DD  statement  (line  12)  must  be  the 
current  name  of  the  changed  (disk)  file  output  from  SRSTSSN. 

Note  3.  The  DSN  in  the  SORTINOl  DD  statement  (line  27)  must  be  the 
current  name  of  the  tape  output  from  SRSTSSN. 

4.7.4  Normal  Output.  The  following  copies  of  output  from  Syncsort  show 
the  normal  Output  from  this  job. 
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4.8  SRSHSSN 

4.8.1  Description.  This  job  uses  two  Inputs.  One  input  is  the  SRS  disk 
history  file.  The  other  input  is  the  HISTUP  disk  data  set  from  SRS239. 

The  first  step  of  the  job  sorts  the  disk  input  (from  SRS239)  into 
old  MID  order.  The  disk  data  records  contain  both  an  old  and  a new  MID 
as  a result  of  the  Rl-AN  transaction  records  for  SSN  changes.  The  old 
MID  will  be  matched  against  the  SRS  history  file.  When  a match  is  found, 
the  new  MID  will  replace  the  old  MID  In  the  history  record.  The  changed 
history  record  will  be  written  onto  a disk  output  data  set  since  it  will 
no  longer  be  in  the  correct  sequence.  The  unchanged  records  are  written 
onto  a tape  in  their  original  sequence. 

4.8.2  Key  Fields.  The  MID  field  is  the  only  field  used  by  this  program. 


( 

< 

c 

< 

( 


//157'.  3I32  vJUiJ  < bO.lR  .OPT?  ) « « rtt-PLti*  — Lxtc  hSSN'  * I i‘iL=<2PJ  » T • PKUNsHOLU 
/♦.KOUie  XEO  P3M) 

//JOULltt  UU  US:.Sr«Q!  Ci..A01f •3Ii'1J»LUi«lUSe  = SHK 
//  rxf.C  P6N=lLHPKC)t;* ■«f<EGIO\,:s2feK  . 

//SYSPrtliiT  UU  SrSUUTsA 
//SYSUUT  UU  6YSjnl=A 
//SYSiN  DU  * 

JNCAl  LU  0 S W a I'l L = H J h c 1 . I-  P 1 2 . U 1 (} f, u . s !< a 1 1 i S r . T t f I p I- 
UUC  A i LG  USiMrtfit  = M J/iC  J.  > UP  J 2 • CXi)6U  • SHSUHUHF 

/: 

//S>T  tPl  LXI-C  *'o,'l=lKKf<CUUtj 

//SO-ULIB  UU  USM=SYSi.SOKTLI«»DI5»P=.SH^ 

//SYSUOUMP  UU  i>YSUUT  = A 
//sYSUUT  UU  iTSO‘jT  = rt 

//SOKTIW  uO  USA^HQ^Cl  . OPI 2*  Cl  0^1.'  « $KSF  • H LSTUP  » Ul$P  = OLO 

//SOKT’nKOl  UU  UNI  1'sSYSDflt  SPAC'E=  ( »«Ki  11UC)  J 

//SO*<  I W ,<  tj  2 DU  UNI  f=(  SYSUA  . SEP=SO*'  1 WAUU  , At-  F=SCll<  Tl.’KUl , 

//  SPACE=(  IK*  « ( lU'J  ) ) 

//S0RTWKJ3  (ju  IJNI  r=(  SYSQA  i Stp  = ( *OKT«K(Jl , SOKT.-JKU2  ) ) « AFF=SURTWAUl , 

//  SHAC£=<T«K» ( 3 OU > ) 

//SOKTOUT  UU  USN=iHlSTUP»DiSP=«NEW»PASs» * 

//  UN  l T =$56U  , SPACt= ( T -<K  • « *0  » * ) ) * 

//  DCH=»KtCF'  | = KB,  LKECl-  = 2UiBLr'SIZt.=2UoU  ) 

//SfSlN  UU  * 


SUKr  F I ELOS=  <1«1U*Ch»A) 

/* 

//  EXEC  P6n=t»KSHSS  U*KEI9 10^=150^ 

//SYSPKI'MT  00  F.YSOUr  = A 

//SYSUUT  00  SYSOUT=A 

//SYSUUU^P  D’J  SY30Ut=A 

//SYSUKOUT  Uu  SYSOUT=A 

//ekk-iessu  uu  SYSour=A 

//SYSHRIM  DO  SYSOUT  = A 

//SSNL'HGIM  UU  DSi\i  = XHISTUP,niSH=«  OLO,UELETt) 

//INPUT  UU  UI3P  = 0LU,  VOL=(PHM/ATC-,  t . ^EK=  < SKS'JOl  * SHS002  > » i 

//  OSM=HUi1CJL.rtP12.tlUtf0.i>RS-nASTtUiMl  T = 333u 

//OUTPUT  UU  USMsHQilCl  • ftP  1 2 • C j. UfiU  . SKsH IS T • TEhPF  » 


//  u.MIT=2400-3, 

//  DISP=  i NtW « C A TL.G » DELETE ) t 

//  l)Ct?=(KECFrt=V8.  LKECL  = 6U00  . ULKS l ZE= l 30 3U  ) 

//OUTCHfi  UO  JSM=H0r'lCl.«?I2»C10OU.Sr?SCHGWFt 

//  OlSP  = 1 NEW  « C ATI.®  t DELE!  t ) i UlVIIT=o330  , 

//  SPACE=l f«h. (2.2) «PLSE»  . 

//  UCU=(KtCF,,  = v'0,LHtCL  = &U00  5030  ) 

/* 

//  E * LC  XELLASE»PAR''I=' ) B70AJ  52* 

/*  \ 

// 
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Note  1.  The  DSNAME  in  the  first  uncatalog  statement  (line  8)  must 
be  the  same  as  the  DSN  in  the  OUTPUT  DD  statement  (line  37). 

Note  2.  The  DSNAME  in  the  second  uncatalog  statement  (line  9)  must 
be  the  same  as  the  DSN  in  the  OUTCHG  DD  statement  (line  41). 

Note  3.  The  DSN  in  the  SORTIN  DD  statement  must  be  the  current 
data  set  name  of  the  HISTUP  file  output  from  SRS239. 

Note  4.  The  INPUT  DSN  will  always  be  the  SRS  master  file  name. 

4.8.4  Normal  Output.  The  following  report  copies  show  the  normal  output 
from  this  program. 


L 
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4.9  Merge  HSSN  Output 

4.9.1  Description.  This  job  Is  a two-step  process.  The  first  step  is  a 
sort  for  the  changed  records  that  were  output  on  disk  by  the  SRSHSSN 
program.  The  second  step  will  merge  these  changed  records  back  into  the 
original  file. 

Thus,  the  output  of  this  process  is  a tape  copy  of  the  SRS  history  file 
with  the  SSN  changes  applied.  This  file  will  be  input  to  the  master  file 
update  process. 

4.9.2  Key  Kields.  The  SRS  history  record  MID  is  the  only  field  used  in 
this  job. 
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4. UR. 3 JO  t St  I UP, 

ISP  FULLOui'G  StOUEMCt  OF  CAhUS  WILL  ImVOaE  THE  PftUGK<U”i; 


//Xb7C*31  -*2  JOB  (601««!1PI2»  ♦•TEtpLts-^t.ruit  HSSN*  , 1 1 ‘*1 L = ( Ob  > , M PRu  l=HOLU 
/xKJUtE  TEL’  33.50 

//  EXEC  PGivi  = ltHPPOGK,H:EGIGN  = ?£>K 
//SY3PKI  H UU  SY30JT=A 
//SY sour  OU  iY SUUT=A 


//SYSli'J  UU  * 

JNCA  I Lti  USNrtML=HyhCl  •MJ  I?.  LJ  U«W*  SRPF  . UpHIST 

/ * 

//STEFo  EXEC  PGk!  = IEKRCDUU»»EGlUN=150* 

//SOKILIB  (JO  U5N=SYSl .SURI  L 1 n . 0 I *P  = SUR 
//SYSUUU'IP  UU  SY5UUT=A 
//SYSOUT  UU  SYS0ul=A 

//SOK  TIN  UO  US->J=H'Ji«iC.l.RPI2.C10<»0.SASCrlGHF,OlSP  = OLU 
//SORfWKOl  UU  UfJI  I =SYSUA  , SPALS:=  ( t , l bUU  ) > 

//S0RTWK02  ou  UM[  I = (SYSU/',.SE^=S0RTWKU1)  . Ah  F = S0K  T .J  K 0 1 , 

//  SPACE=l  r*K»  (5UU)  ) 

//SORTUr03  UU  Ur4iT=(  SYSOAiStp=(POKT*»K01 , SURTWKU?  ) ) , AFF  = SUKT=.mu  1 , 
//  SPACE— (IKK* 1500)) 

//SCM  T OUT  ou  0SM  = SCUU0UT,0i3P=MMEw«PASS> » 

//  UNI  1=333  0, SPACe=(CYL.»U2f^>». 

//  OCH=(f<tCF"i  = \/B,LKECL  = 60oO,ULKSlZt  = 130  30  ) 

//SY31H  UU  * 


SURT  FI£LUS=» 35, 1 0 ,CHt A) 

RECORD  I Y Pt  = V , LtUGY 0=13560, , t2on,^bH) 
/* 


//step?  exec  pu“i=u;«pcooo ,REuiOM=ibuR 

//SOXTLI  J UD  USi'J=SrSL.S0RrLlu,0I3p  = SUR 
//SYSUiU'iP  t'ju  SYSOUT  = A 
//SYSOUr  UD  SY3U‘jr  = A 

//SOK  riiJin  UU  us  ■j  = \CMGt.)Ur,ulSP=(OLU,UELLlE) 

//SORT  I 'MOP  UU  rjs  I = MU.-IC  L • ikiP  A 2 • C J- 0 SO  • SHSh  I ST  . TEMPF  , U£SP  = 0LU 
//SDK TOUT  UU  U S N = H 3 ”1 C 1 • M P I P-  • C 1 u b 0 • 3 R S F , U P H I S T , 

//  DISP=  l NEW  , C ATLU  , DELE  J *■ ) ,U'U  l=2-fOG-3, 

//  •JCB=<RtCFM=VB,LRECL  = bOOO,OLKSA2L=i3U3U ) 


//SYS  IN  uu  * 
iw, E R G t FIfcLOS=  ( 3 5 , 1 0 , C H , A ) 

RECORD  T Y P t = v/ 1 L E i J G I H = ( 3560  » , ,2°8*2b>i) 
/* 

//  EXEC  IELtAS£,PAR^=' 1570*1621 
/* 

// 


A'-t  y 


* w 
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Note  1.  The  DSN  in  the  SORTIN  DD  statement  (line  13)  should  be  the 
same  as  the  changed  record  file  output  from  SRSHSSN. 

Note  2.  The  DSN  in  the  SORTIN02  DD  statement  (line  31)  should  be 
the  same  as  the  unchanged  output  from  SRSHSSN. 

Note  3.  The  DSNAME  in  the  uncatalog  statement  (line  7)  should  be 
the  same  as  the  DSN  in  the  SORTOUT  DD  statement  (line  32). 

4.9.4  Normal  Output.  The  following  copies  of  Syncsort  output  show  the 
normal  output  from  this  process. 
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4.10  UPDATE 

4.10.1  Description.  There  are  three  Inputs  to  this  program;  Transactions, 
History,  and  RAMS.  The  transactions  have  had  MID  changes  applied  and  were 
output  from  SRSTSSN.  The  history  has  also  undergone  MID  changes  and  is 
the  merged  output  from  "Merge  HSSN  output".  The  current  RAMS  file  should 
be  used  for  the  RAMS  input. 

The  history  file  that  is  produced  as  output  must  always  be 
rewritten  since  the  existing  history  records  will  grow  in  size  and  occupy 
more  space  than  they  did  before.  A history  record  that  has  no  transactions 
to  be  posted  is  just  copied  from  input  to  output.  When  transactions  do 
exist  for  a history  record,  all  transactions  are  posted  to  the  record  and 
then  written  on  the  output.  For  new  accession  transactions,  no  history 
record  will  exist.  Therefore,  for  new  accessions  a brand  new  history  record 
will  be  constructed  from  the  accession  record  and  a matching  RAMS  record. 

If  the  transactions  do  not  have  a history  record  to  update  or  if  they  fail 
some  validation  check,  they  are  written  out  as  error  transactions  with  an 
error  code  indicating  the  failure.  (See  Section  3.3  for  the  error  code 
list.) 


There  are  four  outputs  from  this  program;  the  error  transactions,  a 
disk  master  history  file,  a tape  back-up  history  file,  and  an  archives  file 
(in  the  initial  stages,  the  archival  output  will  not  be  active,  thus  there 
are  three  outputs) . 

This  program  calls  the  assembler  language  routines  READER,  READCH, 
and  READRK. 

4.10.2  Key  Fields.  All  of  the  fields  in  SRS  are  involved  in  the  update 
process.  See  the  list  of  detailed  contents  appearing  in  Macro-overview, 
Section  2.2 


v. 
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4.10.3  JCUi  St.  (UP, 

Y-lfc.  f JLLO'.U  mG  SF/JOE  \SCt-  OF  CrtKUS  JTLt.  £ iV'KE  Tut.  PRUGKftH; 


//lli7"31  -.2  Joj  l SOT  R » |V,P  I ? ) » *UPUA  1 1_  • , I l -t  = ( 'Hi ) . I VPKlJl'isH'JUi) 
/*KUO I H Xt.(i  333!) 

//JO  >LIB  UD  US'.,=H0;1C  1 • AO  1 iS  • G I M^L  1 0 » Jl So=SHR 

//CF>7Po \<>d  t/LC  PG  =*tHP40P,‘liRC-Ul0''t=*fc>K 

//svsHRr;r  oo  srsoj  1=4 

//SYSUUI  UO  3 Y SOU • = A 

//srstiM  ou  * 

■jive  h I LG  OSi'i  AOr:  = riUi»i<;  1 . HP  1 2 . C 1 OOP  . SRSM  7 3 12 

/* 

//  t>EC  POO=SRSOP(n  *KEGI0i'i=ltJ0^ 

//srsPKiMr  jo  sysouv=a 

//fc-KRi-.F-SS  • DO  SYSUUT=A 

//srsouT  00  srsuur=A 

//sysuolup  Du  sysou 1 =a 

//SYSOBOUT  DO  SYS0UT=4 

//tKKAGSRO  UJ  SYS0UT=A 

/ / K A H S>  F I L £ 00  IUSP  = 'JLI),  I)S:1=HCM0J  . MP  [ 3 , r 1 061  , P20  , K Ai^S-US 

//SrATFILE  0 D 0 1 SP  = OLD  . OSMsPOMC-t  . •U«P  T 2 . Cl  0 <30  . SKSF  . UPS  I AT 

//INPUT  00  U1SP=01.  J»OSI'|=iiQI:Cl.i"iPT^.Cli)BU.Si<SF.llP01ST 

//OUTPUT  00  OlSP=0l0t 
//  fJSN  = riJ'3Ul  . .“IP  I?.ClP«O.SRS-ftAST« 

//  INI  I =333u,V0L=<PKn'ATt,  , , 3F_K=  l SKS 0 0 1 , SRSUO 2 ) > i 

//  OCU=lKt.CF;i  = VSiLK£CL=faU00iPLKS12t  = \3O30)  » 

//  SPACt=lCYL«  (4U2«4l)2)  ) 

//ST  A TE.RR  UU  Dl  SP=t  I JEW  * CA  I LG  . U£LF.  I £ I , 'JO  I l =24U0-3  i 
//  0C«=  < K^GP:vl=F'J  t LRECL  = 24U  * BLtYSI/F=2400  ) « 

//  OSW=H:j.-IC  1 . MP  I2.C10&0*  S>'S  .L*KSy*>12 

//UOTCHG  00  US0=HQHCl.f‘,Pl2»Cl  JO0.SRSM70l2» 

//  [J  [Sp=  t WtW  , C ATLG  .CATLG  > . UW1  T = 2*+ 00 ~3  * 

//  Of;p=(KLCF/:  = i/0.  LK£CL  = bO0  0 , «LKS !?.£-  = 1 30 30  I 

/* 

// 
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1 

Note  1.  The  DSN  in  the  OUTCHG  DD  statement  (line  33)  should  be  the 
name  of  the  current  tape  master  file  backup. 

Note  2.  The  DSNAME  in  the  uncatalog  statement  (line  8)  should  be 
the  same  as  the  DSN  in  the  OUTCHG  DD  statement  (line  33). 

Note  3.  The  DSN  in  the  STATERR  DD  statement  (line  26)  should  be 
the  name  of  the  current  error  file. 

4.10.4  Normal  Output.  The  following  copies  of  reports  show  the  normal 
output  from  this  program. 
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